home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / Interfaces3_6.lha / Interfaces / MathIEEESingTrans.mod < prev    next >
Encoding:
Text File  |  1994-03-06  |  1.6 KB  |  55 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: MathIEEESingTrans.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE MathIEEESingTrans;
  11.  
  12. IMPORT
  13.   e  * := Exec,
  14.   ml * := MathLibrary;
  15.  
  16. CONST
  17.  
  18.   mathIEEESingTransName * = "mathieeesingtrans.library";
  19.  
  20. VAR
  21.  
  22.   base * : ml.MathIEEEBasePtr;
  23.  
  24. PROCEDURE Atan  * {base,- 30}(x{0}       :e.SINGLE):e.SINGLE;
  25. PROCEDURE Sin   * {base,- 36}(x{0}       :e.SINGLE):e.SINGLE;
  26. PROCEDURE Cos   * {base,- 42}(x{0}       :e.SINGLE):e.SINGLE;
  27. PROCEDURE Tan   * {base,- 48}(x{0}       :e.SINGLE):e.SINGLE;
  28. PROCEDURE Sincos* {base,- 54}(VAR cos{8} : e.SINGLE;
  29.                               x{0}       :e.SINGLE) :e.SINGLE;
  30. PROCEDURE Sinh  * {base,- 60}(x{0}       :e.SINGLE):e.SINGLE;
  31. PROCEDURE Cosh  * {base,- 66}(x{0}       :e.SINGLE):e.SINGLE;
  32. PROCEDURE Tanh  * {base,- 72}(x{0}       :e.SINGLE):e.SINGLE;
  33. PROCEDURE Exp   * {base,- 78}(x{0}       :e.SINGLE):e.SINGLE;
  34. PROCEDURE Log   * {base,- 84}(x{0}       :e.SINGLE):e.SINGLE;
  35. PROCEDURE Pow   * {base,- 90}(exp{1}     : e.SINGLE;
  36.                               x{0}       :e.SINGLE):e.SINGLE;
  37. PROCEDURE Sqrt  * {base,- 96}(x{0}       :e.SINGLE):e.SINGLE;
  38. PROCEDURE Tieee * {base,-102}(x{0}       :e.SINGLE):e.SINGLE;
  39. PROCEDURE Fieee * {base,-108}(x{0}       :e.SINGLE):e.SINGLE;
  40. PROCEDURE Asin  * {base,-114}(x{0}       :e.SINGLE):e.SINGLE;
  41. PROCEDURE Acos  * {base,-120}(x{0}       :e.SINGLE):e.SINGLE;
  42. PROCEDURE Log10 * {base,-126}(x{0}       :e.SINGLE):e.SINGLE;
  43.  
  44.  
  45. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  46.  
  47. BEGIN
  48.   base := e.OpenLibrary(mathIEEESingTransName,37);
  49.  
  50. CLOSE
  51.   IF base#NIL THEN e.CloseLibrary(base) END;
  52.  
  53. END MathIEEESingTrans.
  54.  
  55.